home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / nfss-addons / scr.sty < prev   
Text File  |  1993-01-13  |  2KB  |  55 lines
  1. %% scr.sty v. 1.0a 14. 1. 1993
  2. %% Renamed from:
  3. %% script.sty  v 1.0a von J"org Knappen 11. 9. 1992
  4. %% (c) J"org Knappen 1991, 1992, 1993         knappen@vkpmzd.kph.uni-mainz.de
  5. %% Copying conditions: Gnu licence v 1.0
  6. %% Created 31-jan-1992
  7. %% Changed 11-sep-1992: Added sizes 20 and 25
  8. %% Changed name on 14-jan-1993
  9. %%
  10. %% L"adt die RSFS-Zeichens"atze unter dem neuen Zeichensatzwahlschema
  11. %% und definiert \script (als Fontschalter)
  12. %% 
  13. %% The RSFS fonts are loaded and the following control sequences are
  14. %% defined:
  15. %% \script    acts as a font switch, switching its argument to RSFS
  16. \@ifundefined{extract@font}
  17.      {\errmessage{The style option `script' does not make sense if you
  18.                   do not use a format with the new font selection scheme.}
  19.       \endinput}
  20.      {}
  21.  
  22.   \def\RIfM@{\relax\protect\ifmmode}
  23.     \let\boxz@\fi % \if \fi matching hack
  24.   \def\boxz@{\box\z@}
  25.   \def\setboxz@h{\setbox\z@\hbox}
  26.   \def\wdz@{\wd\z@}
  27.   \def\noaccents@{\def\accentclass@{0}}
  28.   \def\Invalid@@{Invalid use of \string}
  29.   \def\nonmatherr@#1{\err@
  30.     {\string#1\space allowed only in math mode}\@ehd}
  31.   \def\err@{\@latexerr}
  32.  
  33. \newmathalphabet\script@
  34. \addtoversion{normal}\script@{script}{m}{n}
  35. \addtoversion{bold}\script@{script}{m}{n}
  36. \def\pscript{\RIfM@\expandafter\script@\else
  37.                   \expandafter\nonmatherr@\expandafter\script\fi}
  38. \def\script{\protect\pscript}
  39. \new@fontshape{script}{m}{n}{%
  40.   <5>rsfs5%
  41.   <6>rsfs5 at6pt%
  42.   <7>rsfs7%
  43.   <8>rsfs10 at8pt%
  44.   <9>rsfs10 at9pt%
  45.   <10>rsfs10%
  46.   <11>rsfs10 at10.95pt% 
  47.   <12>rsfs10 at12pt%
  48.   <14>rsfs10 at14.4pt%
  49.   <17>rsfs10 at17.28pt%
  50.   <20>rsfs10 at19.71pt%
  51.   <25>rsfs10 at24.48pt%
  52.   }{}
  53. \extra@def{script}{}{\noaccents@}
  54. \endinput
  55.